home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / network / file-tra / fsp-2.7 / fsp-2 / fsp / vms / compile.com < prev    next >
Encoding:
Text File  |  1993-05-17  |  1.1 KB  |  32 lines
  1. $! COMPILE.COM
  2. $! compiler for VMS-FSP V2.7.0
  3. $! 03-JAN-93 First version for FSP V2.6.5 <S.A.Pechler@bdk.tue.nl>
  4. $! 07-MAY-93 Modified for VMS-FSP V2.7.0 <S.A.Pechler@bdk.tue.nl>
  5. $!
  6. $! Original routine from VMS-IRC-Client DCL MAKE file
  7. $! Copyright 1990 by Very Mad Students, University of Karlsruhe, FRG
  8. $!
  9. $!------------------------------------------------------------------
  10. $! @Compile <File> <Definitions> <Options> <Options>
  11. $!------------------------------------------------------------------
  12. $!set verify
  13. $CompileIt:
  14. $   Source = F$CVTIME(F$FILE_ATTR("''P1'.C","CDT"))
  15. $   IF F$SEARCH("''P1'.OBJ") .EQS. "" THEN GOTO DoObject
  16. $   Object = F$CVTIME(F$FILE_ATTR("''P1'.OBJ","CDT"))
  17. $   Header = F$CVTIME(F$FILE_ATTR("[.vms]ucxshare.opt","CDT"))
  18. $   IF Source .LTS. Header THEN GOTO DoObject1
  19. $   IF Source .LTS. Object THEN GOTO NoObject
  20. $   GOTO DoObject
  21. $DoObject1:
  22. $   COPY/NOCONF/NOLOG 'P1'.c 'P1'.c
  23. $   PURGE/NOLOG 'P1'.c
  24. $DoObject:
  25. $   WRITE sys$output "...compiling ''P1'"
  26. $   CC/nodebug /object='P1'.obj /include=[.include.vms] 'P1' 'P2' 'P3' 'P4' 'P5'
  27. $   GOTO EndSub
  28. $NoObject:
  29. $   WRITE sys$output "...''P1' already up to date"
  30. $EndSub:
  31. $ EXIT
  32.